-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x4000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2588
-- card count: 2
-- first card id: 3509
-- list block id: 2403
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 34080 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- ©Copyright 1987 Peter B. Nagel

on openStack
  global userName
  hide menubar
  put userName into field 2
  hide field 2
end openStack

on closeStack
  --show menubar
  --if the freesize of me > 2000 then doMenu Compact Stack
end closeStack

on warning times
  repeat 3 times
    beep times
    wait 20 ticks
  end repeat
  answer "Warning! You are deleting copyright notice." with "Go Ahead" or "Cancel"
  if it is "Go Ahead" then
    if last char of bkgnd field "Copyright" is "©" then
      doMenu Copy Field
      doMenu Paste Field
      set style of card field "Copyright" to transparent
      answer "I intend to violate the copyright laws..." with "Yes" or "No"
      if it is "Yes" then
        doMenu Quit Hypercard
      else
        choose browse tool
      end if
    else
      doMenu Copy Field
      doMenu Paste Field
      set style of card field "Copyright" to transparent
      put "©" after bkgnd field "Copyright"
      set lockText of bkgnd field "Copyright" to true
      choose browse tool
    end if
  else
    doMenu Copy Field
    doMenu Paste Field
    set style of card field "Copyright" to transparent
    set lockText of bkgnd field "Copyright" to true
    choose browse tool
  end if
end warning